home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 80 / Tiger_Disk_080_20xx_Tiger-Crew-Disk_de_Side_C.d64 / Bring of medusaB (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  225 lines
  1. 0 poke55,255:poke56,122
  2. 1 poke53280,.:poke53281,.:poke650,128
  3. 2 goto12
  4. 3 z$=""
  5. 4 deffnhb(x)=int(x/256):deffnlb(x)=x-256*fnhb(x):sys58692:poke53265,139
  6. 5 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  7. 6 print"[221]      crypton software present 91     [221]";
  8. 7 print"[221]                                      [221]";
  9. 8 print"[221] save-game cheat for rings of medusa! [221]";
  10. 9 print"[221]                                      [221]";
  11. 10 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  12. 11 print:print"     programm by peter stein / 1991":return
  13. 12 gosub3:print"[155]"spc(6)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 13 printspc(6)"[221]spiel stand disk einlegen [221]"spc(12)"[221]"spc(26)"[221]"
  15. 14 printspc(6)"[221]  und den entsprechenden  [221]"spc(12)"[221]"spc(26)"[221]"
  16. 15 printspc(6)"[221]buchstaben (a- z) eingeben[221]"
  17. 16 printtab(6)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":poke53265,155
  18. 17 poke198,.:wait198,1:geta$:ifa$<"a"ora$>"z"then17
  19. 18 poke53265,139:l$="rom.save("+a$+")":open2,8,2,l$+",p,r"
  20. 19 open15,8,15:get#15,a:gosub188:close15
  21. 20 ifa=0then23
  22. 21 print:print:print:print"   druecke eine taste [146] ";:poke204,.:poke198,.
  23. 22 poke53265,155:wait198,1:poke198,.:poke204,1:clr:run
  24. 23 sys57812l$,8,1:poke780,.:sys65493
  25. 24 open15,8,15:get#15,a:gosub188:close15:poke53265,155
  26. 25 print:print:print:print"   druecke eine taste [146] ";:poke204,.:poke198,.
  27. 26 poke53265,155:wait198,1:poke198,.:poke204,1
  28. 27 clr:gosub3:print"[154]"
  29. 28 h$(.)=left$(z$,10)+" warenhaus       "
  30. 29 h$(1)=left$(z$,11)+" hafen           "
  31. 30 h$(2)=left$(z$,12)+" armee trainieren"
  32. 31 h$(3)=left$(z$,13)+" anzahl der ringe"
  33. 32 h$(4)=left$(z$,14)+" bank            "
  34. 33 h$(5)=left$(z$,15)+" stall           "
  35. 34 h$(6)=left$(z$,16)+" directory       "
  36. 35 h$(7)=left$(z$,17)+" save game       ":a=.
  37. 36 fori=.to7:print""spc(11)h$(i):next:print""spc(11)h$(.):poke53265,155
  38. 37 b=a:geta$:ifa$=""then37
  39. 38 ifa$<>""thenifa$<>"[145]"thenifa$<>chr$(13)then37
  40. 39 ifa$="[145]"anda=.then37
  41. 40 ifa$=""anda=7then37
  42. 41 ifa$="[145]"thena=a-1:ifa=-1thena=.
  43. 42 ifa$=""thena=a+1:ifa=8thena=7
  44. 43 ifa$=chr$(13)thenpoke825,a+1:goto45
  45. 44 print"[146]"spc(11)h$(b)""spc(11)h$(a):goto37
  46. 45 clr:onpeek(825)goto46,128,144,120,104,164,210,171
  47. 46 gosub3:sys58692:print"[154]"
  48. 47 print:print:p=32820
  49. 48 wo=peek(p)+256*peek(p+1)
  50. 49 bi=peek(p+2)+256*peek(p+3)
  51. 50 we=peek(p+4)+256*peek(p+5)
  52. 51 te=peek(p+6)+256*peek(p+7)
  53. 52 ka=peek(p+8)+256*peek(p+9)
  54. 53 ta=peek(p+10)+256*peek(p+11)
  55. 54 li=peek(p+12)+256*peek(p+13)
  56. 55 fe=peek(p+14)+256*peek(p+15)
  57. 56 ld=peek(p+16)+256*peek(p+17)
  58. 57 wz=peek(p+18)+256*peek(p+19)
  59. 58 ma=peek(p+20)+256*peek(p+21)
  60. 59 hw=60000-wo-bi-we-te-ka-ta-li-fe-ld-wz-ma
  61. 60 print" a) wolle     : ";wo
  62. 61 print" b) bier      : ";bi
  63. 62 print" c) wein      : ";we
  64. 63 print" d) tee       : ";te
  65. 64 print" e) kaffee    : ";ka
  66. 65 print" f) taback    : ";ta
  67. 66 print" g) leinen    : ";li
  68. 67 print" h) felle     : ";fe
  69. 68 print" i) leder     : ";ld
  70. 69 print" j) werkzeug  : ";wz
  71. 70 print" k) maschinen : ";ma
  72. 71 print"[153] x) menue
  73. 72 [153]""[166]26);[200](z$,5)"bitte buch-"
  74. 73 [153]""[166]26);[200](z$,6)"staben (a-k)"
  75. 74 [153]""[166]26);[200](z$,7)"eingeben und"
  76. 75 [153]""[166]26);[200](z$,8)"daten aen-"
  77. 76 [153]""[166]26);[200](z$,9)"dern :    "
  78. 77 [153]""[166]26);[200](z$,11)"f1 = >    "
  79. 78 [153]""[166]26);[200](z$,12)"f3 = <    "
  80. 79 [153]""[166]26);[200](z$,13)"f5 = >>   "
  81. 80 [153]""[166]26);[200](z$,14)"f7 = <<   "
  82. 81 [153]""[166]26);[200](z$,15)"f2 = >>>  "
  83. 82 [153]""[166]26);[200](z$,16)"f4 = <<<  "
  84. 83 [153]""[166]26);[200](z$,17)"f6 = >>>> "
  85. 84 [153]""[166]26);[200](z$,18)"f8 = <<<< cont"
  86. 85 [151]53265,155
  87. 86 [161]a$:[139]a$[179]"a"[176]a$[177]"k"[175]a$[179][177]"x"[167]86
  88. 87 [139]a$[178]"x"[167]27
  89. 88 s[178]17:a[178][198](a$)[171]64:z[178]2[172]a[171]2
  90. 89 [145]a[137]91,92,93,94,95,96,97,98,99,100,101
  91. 90 [137]86
  92. 91 x[178]wo:hw[178]hw[170]x:[141]196:w[178]0:[137]102
  93. 92 x[178]bi:hw[178]hw[170]x:[141]196:w[178]2:[137]102
  94. 93 x[178]we:hw[178]hw[170]x:[141]196:w[178]4:[137]102
  95. 94 x[178]te:hw[178]hw[170]x:[141]196:w[178]6:[137]102
  96. 95 x[178]ka:hw[178]hw[170]x:[141]196:w[178]8:[137]102
  97. 96 x[178]ta:hw[178]hw[170]x:[141]196:w[178]10:[137]102
  98. 97 x[178]li:hw[178]hw[170]x:[141]196:w[178]12:[137]102
  99. 98 x[178]fe:hw[178]hw[170]x:[141]196:w[178]14:[137]102
  100. 99 x[178]ld:hw[178]hw[170]x:[141]196:w[178]16:[137]102
  101. 100 x[178]wz:hw[178]hw[170]x:[141]196:w[178]18:[137]102
  102. 101 x[178]ma:hw[178]hw[170]x:[141]196:w[178]20
  103. 102 hb[178][165]hb(x):lb[178][165]lb(x):p[178]32820
  104. 103 [151]p[170]w,lb:[151]p[170]1[170]w,hb:[137]46
  105. 104 [141]3:[153]:[153]:[153][166]11)"contgeldbetrag aendern":[153]:[153]
  106. 105 x[178]16777216[172][194](32795)[170]65536[172][194](32796)[170]256[172][194](32797)[170][194](32798)
  107. 106 a$[178][201]("00000000"[170][202]([196](x),2),9)
  108. 107 gb$[178][200](a$,3)[170]"."[170][202](a$,4,3)[170]"."[170][201](a$,3)
  109. 108 [153]"  barkapital  : ";gb$:[151]53265,155
  110. 109 [153]:[153]:[153]:[153]"  barkapital aendern (j/n) wait ";:[151]204,.
  111. 110 [161]a$:[139]a$[178]"n"[167][151]204,1:[137]27
  112. 111 [139]a$[179][177]"j"[167]110
  113. 112 [153]:[151]204,1
  114. 113 [151]19,64:[133]"conton  neuer stand : list999999999        cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";x$
  115. 114 x[178][197](x$):[151]53265,155
  116. 115 [139]x[177]999999999[167][153]:[137]113
  117. 116 x(.)[178][181](x[173]16777216):x[178]x[171]16777216[172]x(.)
  118. 117 x(1)[178][181](x[173]65536):x[178]x[171]65536[172]x(1)
  119. 118 x(2)[178][181](x[173]256):x(3)[178]x[171]256[172]x(2)
  120. 119 [129]i[178].[164]3:[151]32795[170]i,x(i):[130]:[137]104
  121. 120 [141]3:[153]:[153]:[153][166]7)"contanzahl der ringe aendern":[153]:[153]
  122. 121 x[178][194](32812):mw[178]x
  123. 122 [153][166]7)"contanzahl der ringe :list";x
  124. 123 [153]:[153]:[153]:[153][166]8)"printf1 = >"
  125. 124 [153]:[153][166]8)"f3 = <list"
  126. 125 [153]:[153][166]7)"<cr>= menuelist"
  127. 126 s[178]26:z[178]13:hw[178]5:[151]53265,155:[141]196:
  128. 127 [151]32812,x:[137]27
  129. 128 [141]3:[153]:p[178]32849:fr[178][194](p):gs[178][194](p[170]1):tb[178][194](p[170]2):ks[178][194](p[170]3)
  130. 129 hw[178]30[171]fr[171]gs[171]tb[171]ks
  131. 130 [153][166]7)"contdu besitzt :"
  132. 131 [153][166]7)"1. frachter     :"fr
  133. 132 [153][166]7)"2. grossschiffe :"gs
  134. 133 [153][166]7)"3. truppenboote :"tb
  135. 134 [153][166]7)"4. kampfschiffe :"ks
  136. 135 [153][166]7)"print   x = menue"
  137. 136 [153][166]4)"1-4 = waehlen / f1 = > / f2 = <":[151]53265,155
  138. 137 [161]a$:[139]a$[179]"1"[176]a$[177]"4"[175]a$[179][177]"x"[167]137
  139. 138 [139]a$[178]"x"[167]27
  140. 139 s[178]25:[145][197](a$)[137]140,141,142,143
  141. 140 z[178]11:x[178]fr:hw[178]hw[170]fr:[141]196:[151]p,x:[137]128
  142. 141 z[178]13:x[178]gs:hw[178]hw[170]gs:[141]196:[151]p[170]1,x:[137]128
  143. 142 z[178]15:x[178]tb:hw[178]hw[170]tb:[141]196:[151]p[170]2,x:[137]128
  144. 143 z[178]17:x[178]ks:hw[178]hw[170]ks:[141]196:[151]p[170]3,x:[137]128
  145. 144 [141]3:[153]:[153][166]3)"contwelche werte moechtest du aendern ?":[153]
  146. 145 [153][166]12)"1. moral"
  147. 146 [153][166]12)"2. erfahrung"
  148. 147 [153][166]12)"x= menue"
  149. 148 [153][166]3)"print bitte waehlen (1-2 oder x) wait ";:[151]204,.
  150. 149 [151]53265,155
  151. 150 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[175]a$[179][177]"x"[167]150
  152. 151 [151]204,1:[139]a$[178]"x"[167]27
  153. 152 [145][197](a$)[137]153,154
  154. 153 [129]i[178].[164]6:p(i)[178]32859[170]13[172]i:[130]:[137]155
  155. 154 [129]i[178].[164]6:p(i)[178]32858[170]13[172]i:[130]
  156. 155 [141]3:[140]:[151]646,14
  157. 156 [129]i[178].[164]6:x(i)[178][194](p(i))
  158. 157 [135]a$:[153][166]3)a$;x(i):[130]
  159. 158 [153][166]3)"printx = menue
  160. 159 poke53265,155
  161. 160 geta$:ifa$<"1"ora$>"7"anda$<>"x"then160
  162. 161 a=val(a$):ifa$="x"then144
  163. 162 z=9+2*(a-1):s=23:hw=200
  164. 163 x=x(a-1):gosub196:pokep(a-1),x:poke53265,155:goto155
  165. 164 gosub3
  166. 165 printspc(7)"[154]anzahl der wagen aendern"
  167. 166 printspc(7)"anzahl der wagen :[153]";:
  168. 167 aw=peek(32818)+256*peek(32819):printaw:poke53265,155:mw=1
  169. 168 z=14:s=26:x=aw:hw=750:gosub196
  170. 169 hb=fnhb(x):lb=fnlb(x)
  171. 170 poke32818,lb:poke32819,hb:goto27
  172. 171 poke53265,139:print"[155]"spc(6)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  173. 172 printspc(6)"[221]    save disk einlegen    [221]"
  174. 173 printspc(6)"[221]                          [221]"
  175. 174 printspc(6)"[221]  und den entsprechenden  [221]"
  176. 175 printspc(6)"[221]                          [221]"
  177. 176 printspc(6)"[221]buchstaben (a- z) eingeben[221]"
  178. 177 printspc(6)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":poke53265,155
  179. 178 poke198,.:wait198,1:geta$:ifa$<"a"ora$>"z"then178
  180. 179 poke53265,139:l$="rom.save("+a$+")"
  181. 180 open15,8,15,"i":print#15,"s:"+l$:close15
  182. 181 sys57812l$,8
  183. 182 poke174,0:poke175,159
  184. 183 poke193,0:poke194,128
  185. 184 sys62957
  186. 185 open15,8,15:get#15,a:gosub188:print#15,"i":close15
  187. 186 print:print:print"  druecke eine taste [146] ";:poke204,.:poke53265,155
  188. 187 poke198,.:wait198,1:poke198,.:poke204,1:run
  189. 188 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] ";
  190. 189 print" [221] status :                           [221] ";
  191. 190 print" [221]                                    [221] ";
  192. 191 print" [221]                                    [221] ";
  193. 192 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  194. 193 print"[145][145][145]"a"[157]";
  195. 194 get#15,a$:ifa$<>chr$(13)thenprinta$;:goto194
  196. 195 return
  197. 196 ze$=left$(z$,z)
  198. 197 x$=str$(x):print"";spc(s);ze$;"";right$(x$,len(x$)-1);"[146]    "
  199. 198 geta$:ifa$=""then198
  200. 199 ifa$=chr$(13)then209
  201. 200 ifa$="[133]"thenx=x+1:ifx>hwthenx=hw
  202. 201 ifa$="[134]"thenx=x-1:ifx<mwthenx=mw
  203. 202 ifa$="[135]"thenx=x+100:ifx>hwthenx=hw
  204. 203 ifa$="[136]"thenx=x-100:ifx<mwthenx=mw
  205. 204 ifa$="[137]"thenx=x+1000:ifx>hwthenx=hw
  206. 205 ifa$="[138]"thenx=x-1000:ifx<mwthenx=mw
  207. 206 ifa$="[139]"thenx=x+10000:ifx>hwthenx=hw
  208. 207 ifa$="[140]"thenx=x-10000:ifx<mwthenx=mw
  209. 208 goto197
  210. 209 x$=str$(x):print"";spc(s);ze$;"[146]";right$(x$,len(x$)-1);"    ":return
  211. 210 print"[153][147] 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$
  212. 211 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print:geta$,a$,a$,b$
  213. 212 ifstthen214
  214. 213 printasc(a$+chr$(0))+256*asc(b$+chr$(0));:goto211
  215. 214 sys65484:close1:open15,8,15,"i":print:print"";
  216. 215 get#15,a$:ifa$<>chr$(13)thenprinta$;:goto215
  217. 216 close15:poke198,.:wait198,1:poke198,.:goto27
  218. 217 data"1. infanterie     :"
  219. 218 data"2. kavallerie     :"
  220. 219 data"3. artillerie     :"
  221. 220 data"4. aufklaerer     :"
  222. 221 data"5. drachenreiter  :"
  223. 222 data"6. zauberer       :"
  224. 223 data"7. bogenschuetzen :"
  225.